home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_2.zip / FILES07.EXE / CENTILE.PGM < prev    next >
Text File  |  1994-08-22  |  2KB  |  55 lines
  1. ************************************************************************
  2. *CENTILE.PGM  Version 1.0, 20/FEB/1990                                 *
  3. *An Epi Info program to present anthropometric centile distributions   *
  4. *  by Kevin Sullivan, Division of Nutrition, CDC.                      *
  5. *  The Epi Info file analyzed must contain the anthropometry fields    *
  6. *  HAZ, HAP, HAM, WHZ, WHP, WHM, WAZ, WAP, WAM, and FLAG.              *
  7. ************************************************************************
  8. echo
  9. echo
  10. ? Press <Enter> to READ NUTRI.REC, the data file... ?
  11. echo
  12. ?EPI>?
  13. READ NUTRI.REC
  14. ?Press <Enter> again to run the report..  ?
  15. ************************************************************************
  16. ECHO  Declaring missing variables based on Record Flag
  17. ************************************************************************
  18. Define NOHA #
  19. Define NOWH #
  20. Define NOWA #
  21. If (flag=1) or (flag=3) or (flag=5) or (flag=7) then NOHA = 1 else NOHA = 0
  22. If NOHA = 1 then HAZ=.
  23. If NOHA = 1 then HAP=.
  24. If NOHA = 1 then HAM=.
  25. If (flag=2) or (flag=3) or (flag=6) or (flag=7) then NOWH = 1 else NOWH = 0
  26. If NOWH then WHZ=.
  27. If NOWH then WHP=.
  28. if NOWH then WHM=.
  29. If (flag>3) and (flag<8) then NOWA = 1 else NOWA = 0
  30. If NOWA then WAZ=.
  31. If NOWA then WAP=.
  32. If NOWA then WAM=.
  33. ************************************************************************
  34. ECHO Defining field names for centile categories
  35. ************************************************************************
  36. Define HAPGRP _
  37. Define WHPGRP _
  38. Define WAPGRP _
  39. ************************************************************************
  40. ECHO Creating centile categories using recode command
  41. ************************************************************************
  42. recode hap to hapgrp 0-9.99=a 10-19.99=b 20-29.99=c 30-39.99=d 40-49.99=e 50-59.99=f 60-69.99=g 70-79.99=h 80-89.99=i 90-99.8=j else= .
  43. recode whp to whpgrp 0-9.99=a 10-19.99=b 20-29.99=c 30-39.99=d 40-49.99=e 50-59.99=f 60-69.99=g 70-79.99=h 80-89.99=i 90-99.8=j else= .
  44. recode wap to wapgrp 0-9.99=a 10-19.99=b 20-29.99=c 30-39.99=d 40-49.99=e 50-59.99=f 60-69.99=g 70-79.99=h 80-89.99=i 90-99.8=j else= .
  45. ************************************************************************
  46. ECHO Missing values to be ignored
  47. set ignore=on
  48. ?To produce the report, using CENTILE.RPT, press <Enter>... ?
  49. ?Epi> ?
  50. cls
  51. report centile
  52. ?Use <PgUp> to examine or <Enter> to leave ANALYSIS... ?
  53. QUIT
  54.  
  55.